home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0669.ZIP / DECRYPT.PRG < prev    next >
Text File  |  1985-12-30  |  768b  |  20 lines
  1. * PROGRAM...DECRYPT.PRG
  2. * AUTHOR....MIKE COTICCHIO
  3. * NOTES.....Procedure to decrypt encrypted passwords
  4.  
  5. parameters newword,oldword
  6. store len(newword) to loopcnt,decodekey
  7. store 0 to currletter
  8. store space(1) to oldword
  9.  
  10. **** This section simply reverses what was done in ENCRYPT.PRG     ****
  11. **** The coding key is a value equal to the length of the password ****
  12. **** which is now subtracted from the parsed characters to return  ****
  13. **** the original character                                        ****
  14.  
  15. do while currletter < loopcnt
  16. currletter = currletter+1
  17. store asc(substr(newword,currletter)) - decodekey to newletter
  18. oldword = trim(oldword) + chr(newletter)
  19. enddo
  20. return